home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 171
/
171.d81
/
demo 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
184b
|
5 lines
10 poke53280,0:poke53281,0:poke646,1:a$="[183][197][196][192][198][210][175]"
20 fori=1to7:a$(i)=" ":forj=1to5:a$(i)=a$(i)+mid$(a$,i,1):next:next
30 fori=1to7:printa$(i),a$(i),a$(i),a$(i):next
40 fori=7to1step-1:printa$(i),a$(i),a$(i),a$(i):next:goto30